home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / IMPTBLS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-16  |  3.2 KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form frmImpTbls 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Import Tables"
  5.    ClientHeight    =   1560
  6.    ClientLeft      =   2280
  7.    ClientTop       =   3165
  8.    ClientWidth     =   6480
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2025
  19.    HelpContextID   =   2016130
  20.    Icon            =   "IMPTBLS.frx":0000
  21.    Left            =   2220
  22.    LinkTopic       =   "Form2"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1560
  27.    ScaleWidth      =   6480
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   1  'CenterOwner
  30.    Top             =   2760
  31.    Width           =   6600
  32.    Begin VB.CommandButton cmdClose 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "Close"
  35.       Height          =   375
  36.       Left            =   4920
  37.       MaskColor       =   &H00000000&
  38.       TabIndex        =   2
  39.       Top             =   1080
  40.       Width           =   1455
  41.    End
  42.    Begin VB.CommandButton cmdImport 
  43.       Caption         =   "Import"
  44.       Default         =   -1  'True
  45.       Enabled         =   0   'False
  46.       Height          =   375
  47.       Left            =   4920
  48.       MaskColor       =   &H00000000&
  49.       TabIndex        =   1
  50.       Top             =   480
  51.       Width           =   1455
  52.    End
  53.    Begin VB.ListBox lstTables 
  54.       Height          =   480
  55.       Left            =   120
  56.       TabIndex        =   0
  57.       Top             =   480
  58.       Width           =   4695
  59.    End
  60.    Begin VB.Label lblLabel1 
  61.       AutoSize        =   -1  'True
  62.       Caption         =   " Tables in "
  63.       Height          =   195
  64.       Left            =   120
  65.       TabIndex        =   3
  66.       Top             =   120
  67.       Width           =   720
  68.    End
  69. Attribute VB_Name = "frmImpTbls"
  70. Attribute VB_Base = "0{529A4495-C9E1-11CF-9ED2-00AA00574745}"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_TemplateDerived = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Attribute VB_Customizable = False
  77. Option Explicit
  78. '>>>>>>>>>>>>>>>>>>>>>>>>
  79. Const FORMCAPTION = "Import Tables"
  80. Const Label1 = "Tables In:"
  81. Const BUTTON1 = "&Import"
  82. Const BUTTON2 = "&Close"
  83. '>>>>>>>>>>>>>>>>>>>>>>>>
  84. Private Sub cmdClose_Click()
  85.   Unload Me
  86. End Sub
  87. Private Sub cmdImport_Click()
  88.   Import (lstTables.Text)
  89. End Sub
  90. Private Sub lstTables_Click()
  91.   cmdImport.Enabled = True
  92. End Sub
  93. Private Sub lstTables_DblClick()
  94.   Call cmdImport_Click
  95. End Sub
  96. Private Sub Form_Load()
  97.   Dim tdf As TableDef
  98.   Dim i As Integer
  99.   Me.Caption = FORMCAPTION
  100.   lblLabel1.Caption = Label1
  101.   cmdImport.Caption = BUTTON1
  102.   cmdClose.Caption = BUTTON2
  103.   lstTables.Clear
  104.   For Each tdf In gImpDB.TableDefs
  105.     If (tdf.Attributes And dbSystemObject) = 0 Then
  106.       lstTables.AddItem tdf.Name
  107.     End If
  108.   Next
  109. End Sub
  110.